home *** CD-ROM | disk | FTP | other *** search
/ WINMX Assorted Textfiles / Ebooks.tar / Text - Mathematics - Numerical Mathematics and Computing (F).zip / newton.f < prev    next >
Encoding:
Text File  |  2002-06-11  |  560 b   |  24 lines
  1. C
  2. C PAGE 86: NUMERICAL MATHEMATICS AND COMPUTING, CHENEY/KINCAID, 1985
  3. C
  4. C FILE: NEWTON.FOR
  5. C
  6. C SAMPLE NEWTON METHOD PROGRAM
  7. C 
  8.       DOUBLE PRECISION X,F,G,FX       
  9.       F(X) = ((X - 2.0D0)*X + 1.0D0)*X - 3.0D0  
  10.       G(X) = (3.0D0*X - 4.0D0)*X + 1.0D0
  11.       X  =  4.0D0 
  12.       PRINT 3     
  13.       FX = F(X)   
  14.       PRINT 4,0,X,FX
  15.       DO 2 N = 1,10 
  16.         X = X - FX/G(X)     
  17.         FX = F(X) 
  18.         PRINT 4,N,X,FX      
  19.    2  CONTINUE    
  20.    3  FORMAT(//9X,'N',24X,'X',26X,'F(X)',//)  
  21.    4  FORMAT(5X,I5,5X,D36.28,5X,E10.3)
  22.       STOP
  23.       END 
  24.